home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / FOSSIL03.LIT < prev    next >
Text File  |  1990-01-13  |  1KB  |  29 lines
  1. *[FOSSIL02.LIT]***************************************************************
  2. * Description: Removes FOSSIL support.                                       *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBS-PC.BAS                                               *
  5. * Selection Option: FOSSIL = OFF                                             *
  6. * Additional files:                                                          *
  7. ******************************************************************************
  8. 13549 GOSUB 13700
  9.       IF ZLocalUser OR _
  10.          ZModemOffHook THEN _
  11.          GOTO 13555
  12.       OUT ZModemCntlReg,INP(ZModemCntlReg) AND 254
  13.       CALL DelayTime (ZDTRDropDelay)
  14.       OUT ZModemCntlReg,INP(ZModemCntlReg) OR 1
  15. 13550
  16. 13555 ZActiveMessageFile$ = ZOrigMsgFile$
  17.       GOSUB 12986
  18.       GOSUB 5344
  19.       GET 1,ZNodeRecIndex                                            ' KG061101
  20.       MID$(ZMsgRec$,57,1) = "I"
  21.       MID$(ZMsgRec$,40,2) = " 0"                                     ' KG061101
  22.       MID$(ZMsgRec$,72,2) = " 0"                                     ' KG061101
  23.       PUT 1,ZNodeRecIndex
  24.       GOSUB 12985
  25.       CLOSE 1,2,3,4,5
  26.       IF ZRecycleToDos THEN _
  27.          GOTO 203
  28.       RUN 100
  29.